home *** CD-ROM | disk | FTP | other *** search
- //
- // "$Id: fl_set_font.cxx,v 1.5 1999/01/07 19:17:42 mike Exp $"
- //
- // Font utilities for the Fast Light Tool Kit (FLTK).
- //
- // Copyright 1998-1999 by Bill Spitzak and others.
- //
- // This library is free software; you can redistribute it and/or
- // modify it under the terms of the GNU Library General Public
- // License as published by the Free Software Foundation; either
- // version 2 of the License, or (at your option) any later version.
- //
- // This library is distributed in the hope that it will be useful,
- // but WITHOUT ANY WARRANTY; without even the implied warranty of
- // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- // Library General Public License for more details.
- //
- // You should have received a copy of the GNU Library General Public
- // License along with this library; if not, write to the Free Software
- // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
- // USA.
- //
- // Please report all bugs and problems to "fltk-bugs@easysw.com".
- //
-
- // Add a font to the internal table.
- // Also see fl_set_fonts.C which adds all possible fonts.
-
- #include <config.h>
- #include <FL/Fl.H>
- #include <FL/x.H>
- #include "Fl_Font.H"
- #include <stdlib.h>
- #include <string.h>
-
- static int table_size;
-
- void Fl::set_font(Fl_Font fnum, const char* name) {
- if (fnum >= table_size) {
- int i = table_size;
- if (!i) { // don't realloc the built-in table
- table_size = 2*FL_FREE_FONT;
- i = FL_FREE_FONT;
- Fl_Fontdesc* t = (Fl_Fontdesc*)malloc(table_size*sizeof(Fl_Fontdesc));
- memcpy(t, fl_fonts, FL_FREE_FONT*sizeof(Fl_Fontdesc));
- fl_fonts = t;
- } else {
- table_size = 2*table_size;
- fl_fonts=(Fl_Fontdesc*)realloc(fl_fonts, table_size*sizeof(Fl_Fontdesc));
- }
- for (; i < table_size; i++) fl_fonts[i].name = 0;
- }
- Fl_Fontdesc* s = fl_fonts+fnum;
- if (s->name) {
- if (!strcmp(s->name, name)) {s->name = name; return;}
- #ifndef WIN32
- if (s->xlist && s->n >= 0) XFreeFontNames(s->xlist);
- #endif
- for (Fl_FontSize* f = s->first; f;) {
- Fl_FontSize* n = f->next; delete f; f = n;
- }
- s->first = 0;
- }
- s->name = name;
- #ifndef WIN32
- s->xlist = 0;
- #endif
- s->first = 0;
- }
-
- const char* Fl::get_font(Fl_Font fnum) {return fl_fonts[fnum].name;}
-
- //
- // End of "$Id: fl_set_font.cxx,v 1.5 1999/01/07 19:17:42 mike Exp $".
- //
-